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SECTION 1 


Introduction 


The Microsoft TRS-80 FORTRAN Package contains the following 
software and documentation: 


Disk Software Documentation 


TRS-80 FORTRAN Package 
User's Manual 
#1 TRS-80 FORTRAN Compiler 


Microsoft FORTRAN-80 
Reference Manual 


#1 MACRO-80 Assembler 
#2 LINK-80 Linking Loader 
#1 CREF-80 Cross Reference Microsoft Utility 


Facility Software Manual 
#2 FORLIB/REL FORTRAN-80 
Subroutine Library 


#2 EDIT-80 Text Editor Microsoft EDIT-80 User's 
Guide 
NOTE 


We recommend that you immediately 
make back-up copies of both diskettes. 
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1.1 


Sample Session 


The fastest way to familiarize yourself with the 
TRS-80 FORTRAN Package is to use it. You can start 
using the software right away by foliowing the 
sample coding session outlined below. A FORTRAN 
program is provided in Figure 1 for use during the 
session. Before beginning STEP 1, you should be at 
TRSDOS command level. 


STEP 1: Place diskette #2 in the disk drive and 
enter the command: 


EDIT 


This loads the EDIT-80 text editor. 
EDIT-80 will respond with 


FILE: 


If you are using the program in Figure 1, 
type the filename TEMP/FOR followed by the 
<break> key. If you are using your own 
FORTRAN program, type any legal TRSDOS 
filename. Always follow the filename with 
<break> when creating a new file and with 
<enter> when reading in an existing file. 


After EDIT-80 prints the message: 


Creating 

Version x.x 

Copyright 1977,78 (c) by Microsoft 
Created: xxxx 

xxxx Bytes free 

* 


enter the command: 
I 


EDIT-80 will print 00100, which is the 
first line number. 


STEP 2: Start entering the FORTRAN program as 
listed in Figure 1 (or enter your own 
FORTRAN program). EDIT-80 will type the 
next line number each time you <enter> a 
line. : 
While you're typing in your program, all 
of EDIT-80's editing capabilities are 
available to you. Read through the 
EDIT-80 User's Guide. You'll see how easy 
it is to insert and delete lines, modify 
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STEP 3: 


STEP 4: 


STEP 5: 


text, and search for text. This is a good 
chance to experiment with EDIT~-80. 


When writing any FORTRAN program for your 
TRS-80, use the Microsoft - FORTRAN-80 
Reference Manual to determine the correct 
syntax and usage of all FORTRAN 
statements, 


When you are finished typing in the 
program, type a <break> after the next 
available line number to return to EDIT-80 
command level, To exit the editor, enter 
the command: 


E 


Now there is a FORTRAN program called 
TEMP/FOR on disk that is ready to compile, 
This program is the source file. 


Syntax check. 

Before proceeding, it is a good idea to 
check the program for syntax errors, 
Removing syntax errors now eliminates a 
possible recompilation later, To perform 
the syntax check on the source file called 
TEMP/FOR, place diskette #1 in the disk 
drive and type: 


F80 =TEMP 


This command loads the FORTRAN compiler 
and compiles the source file without 
producing an object or listing file (more 
on object and listing files in STEP 5), 
If there are errors, run EDIT-80 again 
(STEP 1) and correct them, 


Compile the source file, 

To compile the source file called TEMP/FOR 
and produce an object and listing file, 
type the following: 


F80 TEMP, TEMP=TEMP 


Now there is a relocatable object file 
called TEMP/REL and a listing file called 
TEMP/LST on the disk, REL and LST are the 
default extensions supplied: by the 
compiler. The object file contains the 
machine-readable code generated by the 
compiler. The listing file contains the 
FORTRAN program statements and the machine 
language generated by each statement, See 
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STEP 6: 


STEP 7: 


Figure 2 for a copy of the listing file 
generated by TEMP, 


Load and execute the program, 

To load the program into memory and 
execute it, put diskette #2 in the disk 
drive and type: 


L80 TEMP-G 


This command runs LINK-80, which in turn 
loads the object file TEMP/REL into the 
correct memory locations, searches the 
system library for any undefined 
references, and executes the program. 
Your program output should appear on the 
screen as shown in Figure 3. 


Save the object code, 

The object file, once it has been loaded 
by LINK-80, is in a form that can be 
executed by the TRS-80 computer. To save 
a copy of this file, type: 


L80 TEMP-N,TEMP-E 


This command writes a copy of the 
executable object file to disk under the 
name TEMP/CMD, and then exits to MTRSDOS. 
The program may subsequently be run by 
entering the command: 


TEMP 


at TRSDOS command level. For more 
information on LINK-80, see Section 2 of 
the Microsoft Utility Software Manual. 
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FIGURE 1 FORTRAN SOURCE FILE - TEMP/FOR 

00100 c CONVERT FAHRENHEIT TO CENTIGRADE 
00200 INTEGER F 

00300 WRITE (5,5) 

00400 5 FORMAT (33H FAHRENHEIT CENTIGRADE) 
00500 DO 20 F=20,65,5 

00600 C=5./9.* (F-32) 

00700 WRITE (5,10)F,C 

00800 10 FORMAT (12X,12,11X,F6.3) 

00900 20 CONTINUE 

01000 END 

01100 $ 

* 


Sees is the echo 


from the <break> key.) 


WONHGAWNp 


TRS-80 FORTRAN User's Manual 


FIGURE 2 
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LISTING FILE TEMP/LST 


Page 


* FORTRAN-8@ VER. 3. 2 COPYRIGHT as7e ¢C> BY MICROSOFT 
“ BYTES: 32699 
“ CREATED: 15-FEB-79 


CONYERT FAHRENHEIT TQ CENTIGRADE 


INTEGER F 

WRITECS, 5> 

LD BC. $$L 

JP SINIT | 

LD DE, SL 

LD HL. C os 66) 
CALL #W2 

FORMAT ¢ 23H FAHRENHEIT 
CALL ND 

DO 26 F=26.65.5 

C=5. “9. #¢F-32> 

LD HL, 6614 

LD <P>, HL 

WRITECS., 169F,.C 

LD HL, (F> 

LD DE. FFEG@ 

ADD HL, DE 

LD ¢T : GG668G>, HL 

LD HL. C 6a ea 
CALL #L1 

LD HL.C ea 66 
CALL DB 

LD HL. €T: @@6@66> 

CALL $NA 

LD HL. C 

CALL $71 

LD DE, 16L 

LD HL. @s 66) 
CALL FW2 
FORMATC12x, 12, 14%, F6. 32> 

LD DE. F 

LD HL. C 61 66] 
LD A, G2 

CALL #16 

LD DE.C 

LD HL.C 61 6a] 
LD A, 62 

CALL It 

CALL ND 

CONTINUE 

END 


-continued- 


CENTIGRADE > 
26 e3] 
18 e4] 


10 
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aeoteotestee 
see eteobeate 
eto 
edo 
edt 
ate 
seat 
seesteotetke 
afeobeokesttote 
sete 
seed 
aeotesteote ote 
meats 


asc’ 
@@SF~° 
@G62° 
663° 
6665” 
666° 
eo6s” 
@a69~° 
@@6C~° 
G@G6EF“ 
oa71~ 
ea73- 
earr7- 


LD HL, <F> 
LD DE, 6665 
ADD HL, DE 
LD A, 42 
SUB L 

LD A, 66 
SBC H 

JP P. @615~ 
CALL EX 
6160 

6568 

S60G2683 
66661634 


PROGRAM UNIT LENGTH=GG7B ¢123> BYTES 
DATA AREA LENGTH=G646 ¢64)> BYTES 


SUBROUTINES REFERENCED: 


$I 

$W2 

DB 
SEX 


VARIABLES: 


F 
LABELS: 


#$L 
16L 


6oo1" 


Sa66~° 
@@2F" 


#16 
ND 
$MA 
c 6629" 
SL 6o63" 
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SINIT 
$L1 
$T1 


T : G66606 


26L Sasc* 
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FIGURE 3 TEMP/FOR PROGRAM OUTPUT 


FAHRENHEIT CENTIGRADE 
20 -6.667 
25 -3.889 
30 71,111 
35 1,667 
40 4.444 
45 7.222 
50 10.000 
55 12.778 
60 15.556 


65 18.333 
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The TRS-80 FORTRAN Package provides a lot more 
capability than is demonstrated in this short 
session. For instance, you may wish to write 
assembly language programs using MACRO-80 and link 
them to your FORTRAN programs, or -use them 
independently for process control or some other 
application. Or you might want to incorporate 
subroutines from FORTRAN's library into your own 
assembly language routines (see Appendix E of the 
FORTRAN-80 Reference Manual). With the editor, it 
is easy to create disk data files to be referenced 
by your programs. It is possible to interface your 
custom I/O device by writing your own device driver 
routine (See Appendix B of the FORTRAN-80 Reference 
Manual). Keep experimenting, and you'll be 
pleasantly surprised at how much computing power 
has been added to your TRS-80. 


1.2 Note on TRS-80 FORTRAN Manuals 
The FORTRAN-80 Reference Manual is strictly a 
reference for the syntax and semantics of the 
TRS-80 FORTRAN language. It is not intended as a 
tutorial on FORTRAN programming. If you are new to 
FORTRAN and need help learning the language, we 
suggest: 


1, "Guide to FORTRAN-IV Programming" by Daniel 
McCracken (Wiley, 1965) . 


2. “Ten Statement FORTRAN Plus FORTRAN Iv" by 
Michael Kennedy and Martin B. Solomon 
(Prentice-Hall, 1975, Second Edition) 


3. "FORTRAN" by Kenneth P. Seidel (Goodyear, 
1972) 


The Microsoft Utility Software Manual is strictly a 
reference for the commands, switches, pseudo 
operations and error messages of the MACRO-80 
assembler and LINK-80 linking loader. It is not 
intended as a tutorial on assembly language 
programming. If you are unfamiliar with 280 
assembly language, refer to the Radio Shack 
Assembler/Editor Manual and Zilog's Z80-RIO 
Relocating Assembler and Linker User's Manual. 
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SECTION 2 


TRS-80 FORTRAN Compiler 


If you followed the sample session, you are becoming 
familiar with the software in your TRS-80 FORTRAN Package. 
Now let's look specifically at the TRS-80 FORTRAN compiler. 


2.1 Running the Compiler 
When you give TRSDOS the command 
F80 


(diskette #1 must be in the disk drive), you are 
running the TRS-80 FORTRAN compiler. The FORTRAN 
compiler takes a FORTRAN program (source file) and 
compiles it to generate a relocatable object file, 
that is, a file that is in machine code. When the 
compiler is ready to accept commands, it prompts 
the user with an asterisk. To exit the compiler, 
use the <break> key. 


A command may also be typed on the same line as the 
invocation. This is called a “command line." We 
did this in the Sample Session when we typed the 
command line: 


F80 =TEMP 
After executing a command line, the compiler 
automatically exits to the operating system. 
2.2 Command Format 

A compiler command conveys the name of the source 
file you want to compile, and what options you want 
to use. Here is the format for a compiler command 
(square brackets indicate optional): 


- [object filename] [,listing filename]=source filename[-switch...] 


NOTE 
All filenames must be in TRSDOS filéname 
format: 
filename[/ext] [.password] [:drive#]. If you 
are using the compiler's default 


extensions, it is not necessary to specify 
an extension in a compiler command. 
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Let's look individually at each part of the 
compiler command: 


1. Object filename 
To create a relocatable object file,-this part 
of the command must be included. It is simply 
the name that you want to call the object file. 
The default extension for the object filename 
is /REL. 


2. Listing filename 
To create a listing file, this part of the 
command must be included. It is simply the 
name that you want to call the listing file, 
ee default extension for the listing file is 
LST. 


3. Source filename 
A compiler command must always include a source 
filename -- that is how the compiler "knows" 
what to compile. It is simply the name of a 
FORTRAN program you have saved on disk. The 
default extension for a FORTRAN source filename 


is /FOR. The source filename is always 
preceded by an equal sign in a compiler 
command. 


Examples (asterisk is typed by F80): 


*=TEST | Compile the program TEST/FOR 
. without creating an object 
file or listing file. 


*TEST, TEST=TEST Compile the program TEST/FOR. 
Create a relocatable object 
file called TEST/REL and a 
listing file called TEST/LST. 


*,TEST.PASS=TEST.PASS Compile the program TEST 
/FOR. PASS and create a 
listing file called 
TEST/LST.PASS (No object file 
created.) 


*TESTOBJ=TEST Compile the program TEST/FOR 
and create an object file 
called TESTOBJ/REL. (No 
listing file created.) 

4. Switch : 

A switch on the end of a command specifies a 
special parameter to be used during 
compilation. Switches are always preceded by a 
dash (-). More than one switch may be used in 
the same command. The available switches are: 


TRS-80 FORTRAN User's Manual Page 16 


Switch Action 
oO Print all listing addresses in 
octal. 
H Print all listing addresses in 


hexadecimal (default condition). 


N Do not list the object code that is 
generated. List only the FORTRAN 
source code. 


P Each -P allocates an extra 100 
bytes of stack space for use during 
compilation. Use -P if stack 
overflow errors occur during 
compilation. Otherwise not needed. 


M Specifies to the compiler that the 
generated code should be in a form 
which can be loaded into ROMs. 
When a -M is specified, the 
generated code will differ from 
normal in the following ways: 

1.  FORMATs will be placed in the 
program area, with a "JMP" around 
them. 

2. Parameter blocks (for 
subprogram calls with more than 3 
parameters) will be initialized at 
runtime, rather than being 
initialized by the loader. 


Examples: 

*CT.ME,CT.ME=CT.ME-O Compile the program 
CT/FOR.ME. Create a listing 
file called CT/LST.ME and an 
object file called CT/REL.ME. 
The addresses in the listing 
file will be in octal. 

*CT,CT=CT-N Compile the program CT/FOR. 


Create an object file called 
CT/REL and a listing file 
called CT/LST. The listing 
file will contain only the 
FORTRAN source statements, 
not the generated object 
code. s 
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*MAX10=MAX10-P-P 
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Compile the program MAX10/FOR 
and create an object file 
called MAX10/REL. The 
compiler is allocated 200 
extra bytes of stack space. 


NOTE 


If a FORTRAN program is intended for 
the programmer should be 
following ramifications: 


ROM, 
aware of the 


1. DATA statements should not be used to 
initialize RAM. Such initialization is 
done by the loader, and will therefore 
not be present at execution. Variables 

. and arrays may be initialized during 
execution via assignment statements, or 
by READing into them. 


2. FORMATs should not be read into during 
execution. 


3. If the standard library I/O routines 
are used, DISK files should not be 
OPENed on any LUNs other than 6, 7, 8, 
95: 10: If other LUNs are needed for 
Disk I/0, $LUNTB should be recompiled 
with the appropriate addresses pointing 
to the Disk driver routine. 


A library routine, $INIT, sets the stack 
pointer at the top of available memory (as 


indicated by the operating system) before 
execution begins. 
The calling convention is: 

LXI B,<return address> 


JMP $INIT 


If the generated code is intended for some 
other machine, this routine should probably 
be rewritten. The source of the standard 
initialize routine is provided on the disk 
as “INIT/.MAC". Only the portion of this 
routine which sets up the stack pointer 
should ever be modified by the user.’ The 
FORTRAN library already contains the 
standard initialize routine. 
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2.3 Input/Output Device Names 


In the commands discussed so far, it is assumed 
that all files are read from and written to the 
disk. To use an I/O device other than the disk, 
specify the device name in place of the filename in 
the compiler command. 


The device names supplied by TRSDOS are: 


*KI Keyboard Input 
*DO Display Output 
*PR Printer Output 


(*DO and *PR are available only with TRSDOS Version 
2.2 or later.) 


Examples: 


*TEST,*PR=TEST Compile the program TEST/FOR. 
Create an object file called 
TEST/REL and output the listing 
file, TEST/LST, at the printer. 


*TEST,*DO=TEST-N Compile the program TEST/FOR. 
Create an object file called 
TEST/REL and output the listing 
file, TEST/LST at the video 
display. The listing file will 
only contain the FORTRAN source 
statements, not the generated 
object code. 


*=*KI *KI is used only if you want to 
input a source file from the 
keyboard. This command compiles 
the source file read. from the 
keyboard without creating a REL or 
LST file. 


REMEMBER: In FORTRAN I/O statements (READ and 
WRITE), LUNs 1, 3, 4, and 5 default to the 
console/keyboard (*DO/*KI), LUN 2 defaults to the 
line printer (*PR), and LUNs 6-10 default to the 
disk drive. 
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SECTION 3 


TRS-80 FORTRAN Disk Files 


SEE ALSO FORTRAN-80 REFERENCE MANUAL, SECTION 8.3. 


3.1 


3.2 


Default Disk Filenames 


TRS-80 FORTRAN may access either random or 
sequential disk files. Any disk file that is 
OPENed by a READ or WRITE statement is given a 
default filename that depends on the LUN: 


LUN Default Filename 
6 FORTO6/DAT 
7 FORTO7/DAT 
8 FORTO8/DAT 
9 FORTO9/DAT 
10 FORT10/DAT 
CALL OPEN 


Instead of using READ or WRITE, a disk file may be 
OPENed by calling the OPEN subroutine (see the 
FORTRAN-80 Reference Manual, Section 8.3.2). The 
format of an OPEN call is: 


CALL OPEN (LUN, Filename, Reclen) 
where: 


LUN = a Logical Unit Number to be associated with 
the file (must be an Integer constant or Integer 
variable with a value between 1 and 10). 


Filename = an ASCII name which MTRSDOS~ will 
associate with the file. The Filename should be a 
Hollerith or Literal constant, or a variable or 
array name where the variable or array contains the 
ASCII name. The Filename should be in the form 
normally required by TRSDOS, 


filename/ext.password:drive# 


and it should be terminated with a non-alpha 
character, preferably a blank. * 


Reclen = The number of bytes you wish to specify 
(up to 256) as the record length. The default 
record length is 128 bytes. Reclen must be an 
Integer constant or Integer variable. If zero is 


a 
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supplied for Reclen, the record length will be 256 
bytes. 

The following are examples of valid OPEN calls: 
CALL OPEN (6,'TIME/DAT.JULY:1 1,256) 
CALL OPEN (7,'COUNT/NUM ',200) 


CALL OPEN (1,'TESTQ/MIN:2 ',100) 
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4.1 


SECTION 4 


Error Messages 


FORTRAN Compiler Error Messages 


The FORTRAN-80 Compiler detects two kinds of 
errors: Warnings and Fatal Errors. When a Warning 
is issued, compilation continues with the next item 
on the source line. When a Fatal Error is found, 
the compiler ignores the rest of the logical line, 
including any continuation lines. Warning messages 
are preceded by percent signs (%), and Fatal Errors 
by question marks (?). The editor line number, if 
any, or the physical line number is printed next. 
It is followed by the error code or error message. 


t 


Example: 

?Line 25: Mismatched Parentheses 

%Line 16: Missing Integer Variable 

When either type of error occurs, the program 
should be changed so that it compiles without 
errors. No guarantee is made that a program that 
compiles with errors will execute sensibly. 


Fatal Errors: 


Error 
Number Message 


100 Illegal Statement Number 

101 Statement Unrecognizable or Misspelled 
102 Illegal Statement Completion 

103 Illegal DO Nesting 

104 Illegal Data Constant 

105 Missing Name 

106 Illegal Procedure Name * 
107 Invalid DATA Constant or Repeat Factor 
108 Incorrect Number of DATA Constants 

109 Incorrect Integer Constant 

110 Invalid Statement Number 

111 Not a Variable Name 

112 Illegal Logical Form Operator 

143 Data Pool Overflow . 

114 Literal String Too Large 

115 Invalid Data List Element in I/0 

116 Unbalanced DO Nest 

117 Identifier Too Long 

118 Illegal Operator 


119 Mismatched Parenthesis 
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120 Consecutive Operators 

121 Improper Subscript Syntax 

122 Illegal Integer Quantity 

123 Illegal Hollerith Construction 

124 Backwards DO reference . 

125 Illegal Statement Function Name 

126 Illegal Character for Syntax 

127 Statement Out of Sequence 

128 Missing Integer Quantity 

129 Invalid Logical Operator 

130 Illegal Item Following INTEGER or REAL or 
LOGICAL 

131 Premature End Of File on Input Device 

132 Illegal Mixed Mode Operation 

133 Function Call with No Parameters 

134 Stack Overflow 

135 Illegal Statement Following Logical IF 


Warnings: 


0 Duplicate Statement Label 

4 Illegal DO Termination 

2 Block Name = Procedure Name 

3 Array Name Misuse 

4 COMMON Name Usage 

5 Wrong Number of Subscripts 

6 Array Multiply EQUIVALENCEd within a Group 
7 Multiple EQUIVALENCE of COMMON 

8 COMMON Base Lowered 

9 Non-COMMON Variable in BLOCK DATA 
10 Empty List for Unformatted WRITE 

11 Non-Integer Expression 

12 Operand Mode Not Compatible with Operator 
13 Mixing of Operand Modes Not Allowed 
14 Missing Integer Variable 

15 Missing Statement Number on FORMAT 
16 Zero Repeat Factor 

17 Zero Format Value 

18 Format Nest Too Deep 

19 Statement Number Not FORMAT Associated 
20 Invalid Statement Number Usage 

21 No Path to this Statement 

22 Missing Do Termination 

23 Code Output in BLOCK DATA 

24 Undefined Labels Have Occurred 

25 RETURN in a Main Program 

26 STATUS Error on READ 

27 Invalid Operand Usage 

28 Function with no Parameter 

29 Hex Constant Overflow 7 
30 Division by Zero 

32 Array Name Expected 


33 Illegal Argument to ENCODE/DECODE 
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4.2 


FORTRAN Runtime Error Messages 


During execution of a FORTRAN program one or more 
of the following errors could occur. Fatal errors 
cause execution to cease. Execution continues 
after a warning error. However, execution will 
cease after 20 warnings. Runtime errors are 
surrounded by asterisks as follows 


eePWRE 


Warning Errors: 


IB Input Buffer Limit Exceeded 
TL Too Many Left Parentheses in FORMAT 
OB Output Buffer Limit Exceeded 
DE Decimal Exponent Overflow 
(Number in input stream had 
an exponent larger than 99) 
Is Integer Size Too Large 
BE Binary Exponent Overflow 
IN Input Record Too Long 
OV Arithmetic Overflow 
CN Conversion Overflow 
on REAL to INTEGER Conversion 
SN Argument to SIN Too Large 
A2 Both Arguments of ATAN2 are 0 
Io Illegal I/O Operation 
BI Buffer Size Exceeded During Binary I/O 
RC Negative Repeat Count in FORMAT 


Fatal Errors: 


ID Illegal FORMAT Descriptor 

FO FORMAT Field Width is Zero 

MP Missing Period in FORMAT 

FW FORMAT Field Width is Too Small 

IT I/O Transmission Error 

ML Missing Left Parenthesis in FORMAT 

DZ Division by Zero, REAL or INTEGER 

LG Illegal Argument to LOG Function 
(Negative or Zero) 

sQ Illegal Argument to SQRT Function (Negative) 

DT Data Type Does Not Agree With FORMAT 
Specification 

EF EOF Encountered on READ 


